home *** CD-ROM | disk | FTP | other *** search
/ CDUTIL 13 / CDUTIL #13 Julio 1995.iso / windows / amipro3 / macros.cmz / KEYWORD.SMM < prev    next >
Encoding:
INI File  |  1992-11-18  |  18.7 KB  |  1,581 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Busca archivos mediante la informaci<\s>n sobre documento.
  19.     Lotus WPD Marketing
  20.     Advanced
  21.     Global Arrays, Instr 
  22.     noautorun
  23.     719542385
  24.     52
  25.     676699899
  26.     755
  27.     6
  28.     0
  29.     0
  30.     0
  31.     0
  32.     keyword
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Est<\a>ndar
  57.     3
  58.     [fnt]
  59.         Tms Rmn
  60.         240
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         17
  71.         0
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         24
  103.         1
  104.         2
  105.         ,
  106.         .
  107.         Pts
  108.     Est<\a>ndar
  109.     0
  110.     0
  111. [tag]
  112.     Bullet 2
  113.     5
  114.     [fnt]
  115.         Tms Rmn
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         1080
  123.         360
  124.         360
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         144
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         0
  135.     [line]
  136.         0
  137.         8
  138.         0
  139.         1
  140.         0
  141.         1
  142.         1
  143.         1
  144.         10
  145.         10
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         104
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         280
  159.         1
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Bullet 2
  165.     0
  166.     0
  167. [tag]
  168.     Indent 1
  169.     6
  170.     [fnt]
  171.         Tms Rmn
  172.         240
  173.         0
  174.         49152
  175.     [algn]
  176.         1
  177.         1
  178.         1080
  179.         0
  180.         0
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         144
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         0
  191.     [line]
  192.         0
  193.         8
  194.         0
  195.         1
  196.         0
  197.         1
  198.         1
  199.         1
  200.         10
  201.         10
  202.     [spec]
  203.         0
  204.         0
  205.         
  206.         0
  207.         0
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         280
  215.         1
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Indent 1
  221.     0
  222.     0
  223. [tag]
  224.     Indent 2
  225.     7
  226.     [fnt]
  227.         Tms Rmn
  228.         240
  229.         0
  230.         49152
  231.     [algn]
  232.         1
  233.         1
  234.         1440
  235.         0
  236.         0
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         144
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         0
  247.     [line]
  248.         0
  249.         8
  250.         0
  251.         1
  252.         0
  253.         1
  254.         1
  255.         1
  256.         10
  257.         10
  258.     [spec]
  259.         0
  260.         0
  261.         
  262.         0
  263.         0
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         280
  271.         1
  272.         2
  273.         .
  274.         ,
  275.         $
  276.     Indent 2
  277.     0
  278.     0
  279. [tag]
  280.     Body Single
  281.     8
  282.     [fnt]
  283.         Tms Rmn
  284.         240
  285.         0
  286.         49152
  287.     [algn]
  288.         1
  289.         1
  290.         0
  291.         0
  292.         0
  293.     [spc]
  294.         33
  295.         273
  296.         1
  297.         0
  298.         0
  299.         1
  300.         100
  301.     [brk]
  302.         0
  303.     [line]
  304.         0
  305.         8
  306.         0
  307.         1
  308.         0
  309.         1
  310.         1
  311.         1
  312.         10
  313.         10
  314.     [spec]
  315.         0
  316.         0
  317.         
  318.         0
  319.         0
  320.         1
  321.         0
  322.         0
  323.         0
  324.         0
  325.     [nfmt]
  326.         280
  327.         1
  328.         2
  329.         .
  330.         ,
  331.         $
  332.     Body Single
  333.     0
  334.     0
  335. [tag]
  336.     Bold & Center
  337.     9
  338.     [fnt]
  339.         Tms Rmn
  340.         240
  341.         0
  342.         49153
  343.     [algn]
  344.         4
  345.         1
  346.         0
  347.         0
  348.         0
  349.     [spc]
  350.         33
  351.         273
  352.         1
  353.         0
  354.         144
  355.         1
  356.         100
  357.     [brk]
  358.         0
  359.     [line]
  360.         0
  361.         8
  362.         0
  363.         1
  364.         0
  365.         1
  366.         1
  367.         1
  368.         10
  369.         10
  370.     [spec]
  371.         0
  372.         0
  373.         
  374.         0
  375.         0
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         280
  383.         1
  384.         2
  385.         .
  386.         ,
  387.         $
  388.     Bold & Center
  389.     0
  390.     0
  391. [tag]
  392.     First Indent
  393.     11
  394.     [fnt]
  395.         Tms Rmn
  396.         240
  397.         0
  398.         49152
  399.     [algn]
  400.         1
  401.         1
  402.         0
  403.         720
  404.         0
  405.     [spc]
  406.         33
  407.         273
  408.         1
  409.         144
  410.         0
  411.         1
  412.         100
  413.     [brk]
  414.         0
  415.     [line]
  416.         0
  417.         8
  418.         0
  419.         1
  420.         0
  421.         1
  422.         1
  423.         1
  424.         10
  425.         10
  426.     [spec]
  427.         0
  428.         0
  429.         
  430.         0
  431.         0
  432.         1
  433.         0
  434.         0
  435.         0
  436.         0
  437.     [nfmt]
  438.         280
  439.         1
  440.         2
  441.         .
  442.         ,
  443.         $
  444.     First Indent
  445.     0
  446.     0
  447. [tag]
  448.     Bullet 1
  449.     12
  450.     [fnt]
  451.         Tms Rmn
  452.         240
  453.         0
  454.         49152
  455.     [algn]
  456.         1
  457.         1
  458.         720
  459.         360
  460.         360
  461.     [spc]
  462.         33
  463.         273
  464.         1
  465.         144
  466.         0
  467.         1
  468.         100
  469.     [brk]
  470.         0
  471.     [line]
  472.         0
  473.         8
  474.         0
  475.         1
  476.         0
  477.         1
  478.         1
  479.         1
  480.         10
  481.         10
  482.     [spec]
  483.         0
  484.         0
  485.         
  486.         0
  487.         104
  488.         1
  489.         0
  490.         0
  491.         0
  492.         0
  493.     [nfmt]
  494.         280
  495.         1
  496.         2
  497.         .
  498.         ,
  499.         $
  500.     Bullet 1
  501.     0
  502.     0
  503. [tag]
  504.     Standard
  505.     0
  506.     [fnt]
  507.         Tms Rmn
  508.         240
  509.         0
  510.         49152
  511.     [algn]
  512.         1
  513.         1
  514.         0
  515.         0
  516.         0
  517.     [spc]
  518.         17
  519.         0
  520.         1
  521.         0
  522.         0
  523.         1
  524.         100
  525.     [brk]
  526.         4
  527.     [line]
  528.         8
  529.         0
  530.         1
  531.         0
  532.         1
  533.         1
  534.         1
  535.         10
  536.         10
  537.         1
  538.     [spec]
  539.         0
  540.         0
  541.         
  542.         0
  543.         1
  544.         1
  545.         0
  546.         0
  547.         0
  548.         0
  549.     [nfmt]
  550.         24
  551.         1
  552.         2
  553.         ,
  554.         .
  555.         Pts
  556.     Standard
  557.     0
  558.     0
  559. [l1]
  560.     0
  561. [pg]
  562.     5
  563.     49 0 29 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  564.     98 0 55 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  565.     147 0 17 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  566.     195 0 13 32 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  567.     235 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  568. [edoc]
  569. <:#293,9025>Macro by <+!>Charlie Pappas<-!>
  570.  
  571. <:#284,9025>
  572.  
  573. @Function@<:#293,9025>function keyword()
  574.  
  575. <:#284,9025>IF IsNewWave()
  576.  
  577. <:#284,9025>    Message("Macro no disponible si se ejecuta en HP NewWave.")
  578.  
  579. <:#284,9025>    Exit Function
  580.  
  581. <:#284,9025>ENDIF
  582.  
  583. <:#284,9025>ignorekeyboard(2)
  584.  
  585. <:#284,9025>declare strpath(p1)
  586.  
  587. <:#284,9025>declare strfile(p1)
  588.  
  589. <:#284,9025>declare ckfile(file, txt)
  590.  
  591. <:#284,9025>dim keys(10)
  592.  
  593. <:#284,9025>filledit(8006, "*.sam")
  594.  
  595. <:#284,9025>filledit(8000, getdocpath$())
  596.  
  597. <:#284,9025>for i = 1 to 4
  598.  
  599. <:#284,9025>    field = getprofilestring$("amipro", "field{i}", "amipro.ini")
  600.  
  601. <:#284,9025>    if field = ""
  602.  
  603.         field = "Campo {i}"
  604.  
  605. <:#284,9025>    endif
  606.  
  607. <:#284,9025>    filledit((i + 8100), field)
  608.  
  609. <:#284,9025>next
  610.  
  611. <:#284,9025>box = dialogbox(".", "keywords")
  612.  
  613. <:#284,9025>if box <<<;> 1
  614.  
  615. <:#284,9025>    return 0
  616.  
  617. <:#284,9025>endif
  618.  
  619. <:#284,9025>for i = 1 to 5
  620.  
  621. <:#284,9025>    keys(i) = getdialogfield$(i + 8000)
  622.  
  623. <:#284,9025>next
  624.  
  625. <:#284,9025>for i = 6 to 9
  626.  
  627. <:#284,9025>    keys(i) = getdialogfield$(i + 8005)
  628.  
  629. <:#284,9025>next
  630.  
  631. <:#284,9025>keys(10) = getdialogfield$(8777)
  632.  
  633. <:#284,9025>onerror endit
  634.  
  635. <:#284,9025>oncancel endit
  636.  
  637. <:#284,9025>allocglobalvar("hits", 1)
  638.  
  639. <:#284,9025>allocglobalvar("filesfound", 1)
  640.  
  641. <:#284,9025>setglobalvar("hits", 0)
  642.  
  643. <:#284,9025>setglobalvar("filesfound", 0)
  644.  
  645. <:#284,9025>path = getdialogfield$(8000)
  646.  
  647. <:#284,9025>spec = getdialogfield$(8006)
  648.  
  649. <:#284,9025>if right$(path, 1) <<<;> "\"
  650.  
  651. <:#284,9025>    path = strcat$(path, "\")
  652.  
  653. <:#284,9025>endif
  654.  
  655. <:#284,9025>file = findfirst$(strcat$(path, spec), 1)
  656.  
  657. <:#284,9025>if file = ""
  658.  
  659. <:#284,9025>    message("No se ha hallado ning<\z>n archivo")
  660.  
  661. <:#284,9025>    return 0
  662.  
  663. <:#284,9025>endif
  664.  
  665. <:#284,9025>setglobalvar("filesfound", 1)
  666.  
  667. <:#284,9025>if ckfile(strcat$(path, file), &keys) = 0
  668.  
  669. <:#284,9025>    if decide("</>Desea interrumpir la b<\z>squeda?")
  670.  
  671. <:#284,9025>        goto endit
  672.  
  673. <:#284,9025>    endif
  674.  
  675. <:#284,9025>endif
  676.  
  677. <:#284,9025>while (1)
  678.  
  679. <:#284,9025>    file = findnext$()
  680.  
  681. <:#284,9025>    if file = ""
  682.  
  683. <:#284,9025>        break
  684.  
  685. <:#284,9025>    endif
  686.  
  687. <:#284,9025>    file = strcat$(path, file)
  688.  
  689. <:#284,9025>    setglobalvar("filesfound", (getglobalvar$("filesfound") + 1))
  690.  
  691. <:#284,9025>    if ckfile(file, &keys) = 0
  692.  
  693. <:#284,9025>        if decide("</>Desea interrumpir la b<\z>squeda?")
  694.  
  695. <:#284,9025>            goto endit
  696.  
  697. <:#284,9025>        endif
  698.  
  699. <:#284,9025>    endif
  700.  
  701. <:#284,9025>wend
  702.  
  703. <:#284,9025>endit:
  704.  
  705. <:#284,9025>statusbarmsg("")
  706.  
  707. <:#284,9025>filledit(8111, getglobalvar$("hits"))
  708.  
  709. <:#284,9025>filledit(8110, getglobalvar$("filesfound"))
  710.  
  711. <:#284,9025>filledit(8007, path)
  712.  
  713. <:#284,9025>freeglobalvar("hits")
  714.  
  715. <:#284,9025>freeglobalvar("filesfound")
  716.  
  717. <:#284,9025>box = dialogbox(".", "files")
  718.  
  719. <:#284,9025>if box <<<;> 1
  720.  
  721. <:#284,9025>    return 0
  722.  
  723. <:#284,9025>endif
  724.  
  725. <:#284,9025>statusbarmsg("")
  726.  
  727. <:#284,9025>files = getdialogfield$(8000)
  728.  
  729. <:#284,9025>if files <<<;> ""
  730.  
  731. <:#284,9025>    for i = 1 to 9
  732.  
  733. <:#284,9025>        fname = strfield$(files, i, " ")
  734.  
  735. <:#284,9025>        if fname = ""
  736.  
  737. <:#284,9025>            break
  738.  
  739. <:#284,9025>        endif
  740.  
  741. <:#284,9025>        FileOpen(fname, 1, "")
  742.  
  743. <:#284,9025>    next
  744.  
  745. <:#284,9025>endif
  746.  
  747. <:#284,9025>end function
  748.  
  749. <:#284,9025>
  750.  
  751. @Function@<:#293,9025>function ckfile(file, keys)
  752.  
  753. <:#284,9025>defstr flag, ck;
  754.  
  755. <:#284,9025>if instr(1, ucase$(file), "KEYWORD.SMM") <;> 0
  756.  
  757. <:#284,9025>    return 1
  758.  
  759. <:#284,9025>endif
  760.  
  761. <:#284,9025>stat = 0
  762.  
  763. <:#284,9025>statusbarmsg("Se est<\a> buscando en el archivo:  {file}")
  764.  
  765. <:#284,9025>fh = fopen(file, "r")
  766.  
  767. <:#284,9025>if fh << 1
  768.  
  769. <:#284,9025>    message("No se puede leer el archivo")
  770.  
  771. <:#284,9025>    return 1
  772.  
  773. <:#284,9025>endif
  774.  
  775. <:#284,9025>onerror endit
  776.  
  777. <:#284,9025>oncancel endit
  778.  
  779. <:#284,9025>line = ""
  780.  
  781. <:#284,9025>b = mid$("<[><[>", 1, 1)
  782.  
  783. <:#284,9025>while (line <<<;> "{b}desc]")
  784.  
  785. <:#284,9025>    line = fgets$(fh)
  786.  
  787. <:#284,9025>    if line = -1
  788.  
  789. <:#284,9025>        fclose(fh)
  790.  
  791. <:#284,9025>        return 1
  792.  
  793. <:#284,9025>    endif
  794.  
  795. <:#284,9025>wend
  796.  
  797. <:#284,9025>statusbarmsg("Se est<\a> revisando el texto del archivo:  {file}")
  798.  
  799. <:#284,9025>line = fgets$(fh)
  800.  
  801. <:#284,9025>if assign(&ck, *keys(10)) <<<;> ""
  802.  
  803. <:#284,9025>    if instr(1, lcase$(line), lcase$(ck)) <;> 0
  804.  
  805. <:#284,9025>        setglobalvar("hits", (getglobalvar$("hits") + 1))
  806.  
  807. <:#284,9025>        beep()
  808.  
  809. <:#284,9025>        filllist(strfile(file))
  810.  
  811. <:#284,9025>        fclose(fh)
  812.  
  813. <:#284,9025>        return 1
  814.  
  815. <:#284,9025>    endif
  816.  
  817. <:#284,9025>endif
  818.  
  819. <:#284,9025>line = fgets$(fh)
  820.  
  821. <:#284,9025>for i = 6 to 9
  822.  
  823. <:#284,9025>    ck = *keys(i)
  824.  
  825. <:#284,9025>    if ck <<<;> ""
  826.  
  827. <:#284,9025>        if instr(1, lcase$(line), lcase$(ck)) <;> 0
  828.  
  829. <:#284,9025>            setglobalvar("hits", (getglobalvar$("hits") + 1))
  830.  
  831. <:#284,9025>            beep()
  832.  
  833. <:#284,9025>            filllist(strfile(file))
  834.  
  835. <:#284,9025>            fclose(fh)
  836.  
  837. <:#284,9025>            return 1
  838.  
  839. <:#284,9025>        endif
  840.  
  841. <:#284,9025>    endif
  842.  
  843. <:#284,9025>    line = fgets$(fh)
  844.  
  845. <:#284,9025>next
  846.  
  847. <:#284,9025>for i = 1 to 8
  848.  
  849. <:#284,9025>    line = fgets$(fh)
  850.  
  851. <:#284,9025>    if line = -1
  852.  
  853. <:#284,9025>        fclose(fh)
  854.  
  855. <:#284,9025>        return 1
  856.  
  857. <:#284,9025>    endif
  858.  
  859. <:#284,9025>next
  860.  
  861. <:#284,9025>line = fgets$(fh)
  862.  
  863. <:#284,9025>for i = 1 to 5
  864.  
  865. <:#284,9025>    ck = *keys(i);
  866.  
  867. <:#284,9025>    if ck <<<;> ""
  868.  
  869. <:#284,9025>        if instr(1, lcase$(line), lcase$(ck)) <;> 0
  870.  
  871. <:#284,9025>            setglobalvar("hits", (getglobalvar$("hits") + 1))
  872.  
  873. <:#284,9025>            beep()
  874.  
  875. <:#284,9025>            filllist(strfile(file))
  876.  
  877. <:#284,9025>            fclose(fh)
  878.  
  879. <:#284,9025>            return 1
  880.  
  881. <:#284,9025>        endif
  882.  
  883. <:#284,9025>    endif
  884.  
  885. <:#284,9025>    line = fgets$(fh)
  886.  
  887. <:#284,9025>next
  888.  
  889. <:#284,9025>stat = 1
  890.  
  891. <:#284,9025>endit:
  892.  
  893. <:#284,9025>fclose(fh)
  894.  
  895. <:#284,9025>return stat
  896.  
  897. <:#284,9025>end function
  898.  
  899. <:#284,9025>
  900.  
  901. @Function@<:#293,9025>DIALOG keywords
  902.  
  903. <:#284,9025>-2134376448 21 79 22 206 156 "" "" "B<\z>squeda de palabra clave"
  904.  
  905. <:#284,9025>FONT 8 "Helv"
  906.  
  907. <:#284,9025>6 19 56 8 1001 1342308352 "static" "&Archivos:" 0 
  908.  
  909. <:#284,9025>64 17 82 12 8006 1350631552 "edit" "" 0 
  910.  
  911. <:#284,9025>6 32 42 8 1000 1342177280 "static" "&Descripci<\s>n:" 0 
  912.  
  913. <:#284,9025>6 42 194 22 8777 1350631428 "edit" "" 0 
  914.  
  915. <:#284,9025>6 66 96 8 1002 1342308352 "static" "&Palabras clave:" 0 
  916.  
  917. <:#284,9025>6 76 96 12 8001 1350631552 "edit" "" 0 
  918.  
  919. <:#284,9025>6 90 96 12 8002 1350631552 "edit" "" 0 
  920.  
  921. <:#284,9025>104 76 96 12 8003 1350631552 "edit" "" 0 
  922.  
  923. <:#284,9025>104 90 96 12 8004 1350631552 "edit" "" 0 
  924.  
  925. <:#284,9025>6 104 96 8 8101 1342308352 "static" "" 0 
  926.  
  927. <:#284,9025>6 114 96 12 8011 1350631552 "edit" "" 0 
  928.  
  929. <:#284,9025>6 128 96 8 8102 1342177280 "static" "" 0 
  930.  
  931. <:#284,9025>6 138 96 12 8012 1350631552 "edit" "" 0 
  932.  
  933. <:#284,9025>104 104 96 8 8103 1342177280 "static" "" 0 
  934.  
  935. <:#284,9025>104 114 96 12 8013 1350631552 "edit" "" 0 
  936.  
  937. <:#284,9025>104 128 96 8 8104 1342177280 "static" "" 0 
  938.  
  939. <:#284,9025>104 138 96 12 8014 1350631552 "edit" "" 0 
  940.  
  941. <:#284,9025>160 4 40 14 1 1342373889 "button" "Aceptar" 0 
  942.  
  943. <:#284,9025>160 20 40 14 2 1342373888 "button" "Cancelar" 0 
  944.  
  945. <:#284,9025>6 7 56 8 1003 1342308352 "static" "&Directorio:" 0 
  946.  
  947. <:#284,9025>64 4 82 12 8000 1350631552 "edit" "" 0 
  948.  
  949. <:#284,9025>END DIALOG
  950.  
  951.  
  952. @Function@DIALOG    files
  953.  
  954. <:#568,9025>-2134376448    11    105    38    160    88    ""    ""    "Archivos hallados"
  955.  
  956. <:#284,9025>FONT    8    "Helv"
  957.  
  958. <:#568,9025>6    4    84    8    1000    1342308352    "static"    "&Archivos equivalentes:"    0 
  959.  
  960. <:#284,9025>6    14    64    68    9000    1352728587    "listbox"    ""    0 
  961.  
  962. <:#284,9025>114    4    40    14    1    1342373889    "button"    "Abrir"    0 
  963.  
  964. <:#284,9025>114    20    40    14    2    1342373888    "button"    "Cancelar"    0 
  965.  
  966. <:#284,9025>73    71    60    0    8000    1342177280    "static"    ""    0 
  967.  
  968. <:#284,9025>74    72    54    8    1001    1342177280    "static"    "N</z> revisados:"    0 
  969.  
  970. <:#284,9025>130    72    16    8    8110    1342177280    "static"    ""    0 
  971.  
  972. <:#284,9025>130    62    16    8    8111    1342177280    "static"    ""    0 
  973.  
  974. <:#284,9025>74    62    54    8    1004    1342177280    "static"    "N</z> hallados:"    0 
  975.  
  976. <:#284,9025>74    32    37    8    1002    1342177280    "static"    "Directorio:"    0 
  977.  
  978. <:#284,9025>74    42    80    8    8007    1342177280    "static"    ""    0 
  979.  
  980. <:#284,9025>END DIALOG
  981.  
  982. <:#284,9025>
  983.  
  984. @Function@<:#293,9025>function Strfile(PathFile) ' returns filename from fullpath
  985.  
  986. <:#284,9025>i = 1
  987.  
  988. <:#284,9025>while (1)
  989.  
  990. <:#284,9025>    ck = strchr(i PathFile "\")
  991.  
  992. <:#284,9025>    if ck << 1
  993.  
  994. <:#284,9025>        break
  995.  
  996. <:#284,9025>    endif
  997.  
  998. <:#284,9025>    i = ck + 1
  999.  
  1000. <:#284,9025>wend
  1001.  
  1002. <:#284,9025>plen = len(pathfile)
  1003.  
  1004. <:#284,9025>pathfile = MID$(PathFile i plen)
  1005.  
  1006. <:#284,9025>return pathfile
  1007.  
  1008. <:#284,9025>end function
  1009.  
  1010. <:#284,9025>
  1011.  
  1012. @Function@<:#293,9025>function Strpath(PathFile) ' returns path from fullpath
  1013.  
  1014. <:#284,9025>i = 1
  1015.  
  1016. <:#284,9025>while (1)
  1017.  
  1018. <:#284,9025>    ck = strchr(i PathFile "\")
  1019.  
  1020. <:#284,9025>    if ck << 1
  1021.  
  1022. <:#284,9025>        break
  1023.  
  1024. <:#284,9025>    endif
  1025.  
  1026. <:#284,9025>    i = ck + 1
  1027.  
  1028. <:#284,9025>wend
  1029.  
  1030. <:#284,9025>path = MID$(PathFile 1 (i - 1))
  1031.  
  1032. <:#284,9025>return path
  1033.  
  1034. <:#284,9025>end function
  1035.  
  1036. <:#284,9025>
  1037.  
  1038. >
  1039.  
  1040. [Embedded]
  1041. 00013007
  1042. >
  1043. [macsum] 6
  1044. keyword 0 0 10 2
  1045. ckfile 2053 2 8 91
  1046. keywords 3790 0 -1 166
  1047. files 4845 0 -1 192
  1048. Strfile 5475 1 4 208
  1049. Strpath 5699 1 4 222
  1050. [macse]
  1051. 14 keyword
  1052. 0 1317
  1053. 13
  1054. 11 00000105
  1055. 0 3 "Macro no disponible si se ejecuta en HP NewWave."
  1056. 6 0
  1057. 15
  1058. 9
  1059. 0 32 2
  1060. 5 10
  1061. 21 1 [X]
  1062. 0 31 8006 "*.sam"
  1063. 0 268
  1064. 13
  1065. 0 31 8000 [X]
  1066. 5 1
  1067. 8 2
  1068. 5 4
  1069. 6 2
  1070. 18 2
  1071. 12 00000259
  1072. 10 00000405
  1073. 5 1
  1074. 6 2
  1075. 3 0
  1076. 8 2
  1077. 10 00000184
  1078. 0 286 "amipro" "field{2}" "amipro.ini"
  1079. 13
  1080. 8 3
  1081. 6 3
  1082. 7 ""
  1083. 18 0
  1084. 11 00000358
  1085. 7 "Campo {2}"
  1086. 8 3
  1087. 6 2
  1088. 5 8100
  1089. 3 0
  1090. 0 31 [X] "{3}"
  1091. 10 00000226
  1092. 0 26 "." "keywords"
  1093. 13
  1094. 8 4
  1095. 6 4
  1096. 5 1
  1097. 18 1
  1098. 11 00000476
  1099. 5 0
  1100. 15
  1101. 9
  1102. 5 1
  1103. 8 2
  1104. 5 5
  1105. 6 2
  1106. 18 2
  1107. 12 00000561
  1108. 10 00000617
  1109. 5 1
  1110. 6 2
  1111. 3 0
  1112. 8 2
  1113. 10 00000486
  1114. 6 2
  1115. 6 2
  1116. 5 8000
  1117. 3 0
  1118. 0 27 [X]
  1119. 13
  1120. 23 1
  1121. 10 00000528
  1122. 5 6
  1123. 8 2
  1124. 5 9
  1125. 6 2
  1126. 18 2
  1127. 12 00000702
  1128. 10 00000758
  1129. 5 1
  1130. 6 2
  1131. 3 0
  1132. 8 2
  1133. 10 00000627
  1134. 6 2
  1135. 6 2
  1136. 5 8005
  1137. 3 0
  1138. 0 27 [X]
  1139. 13
  1140. 23 1
  1141. 10 00000669
  1142. 5 10
  1143. 0 27 8777
  1144. 13
  1145. 23 1
  1146. 20 00001588
  1147. 19 00001588
  1148. 0 271 "hits" 1
  1149. 0 271 "filesfound" 1
  1150. 0 264 "hits" 0
  1151. 0 264 "filesfound" 0
  1152. 0 27 8000
  1153. 13
  1154. 8 5
  1155. 0 27 8006
  1156. 13
  1157. 8 6
  1158. 0 807 "{5}" 1
  1159. 13
  1160. 7 "\"
  1161. 18 1
  1162. 11 00000997
  1163. 0 16 "{5}" "\"
  1164. 13
  1165. 8 5
  1166. 0 16 "{5}" "{6}"
  1167. 13
  1168. 0 280 [X] 1
  1169. 13
  1170. 8 7
  1171. 6 7
  1172. 7 ""
  1173. 18 0
  1174. 11 00001125
  1175. 0 3 "No se ha hallado ning<\z>n archivo"
  1176. 5 0
  1177. 15
  1178. 9
  1179. 0 264 "filesfound" 1
  1180. 0 16 "{5}" "{7}"
  1181. 13
  1182. 16 ckfile [X] &1
  1183. 13
  1184. 5 0
  1185. 18 0
  1186. 11 00001290
  1187. 0 2 "</>Desea interrumpir la b<\z>squeda?"
  1188. 13
  1189. 11 00001290
  1190. 10 00001588
  1191. 5 1
  1192. 11 00001588
  1193. 0 281
  1194. 13
  1195. 8 7
  1196. 6 7
  1197. 7 ""
  1198. 18 0
  1199. 11 00001367
  1200. 10 00001588
  1201. 0 16 "{5}" "{7}"
  1202. 13
  1203. 8 7
  1204. 0 265 "filesfound"
  1205. 13
  1206. 5 1
  1207. 3 0
  1208. 0 264 "filesfound" [X]
  1209. 16 ckfile "{7}" &1
  1210. 13
  1211. 5 0
  1212. 18 0
  1213. 11 00001575
  1214. 0 2 "</>Desea interrumpir la b<\z>squeda?"
  1215. 13
  1216. 11 00001575
  1217. 10 00001588
  1218. 10 00001290
  1219. 0 789 ""
  1220. 0 265 "hits"
  1221. 13
  1222. 0 31 8111 [X]
  1223. 0 265 "filesfound"
  1224. 13
  1225. 0 31 8110 [X]
  1226. 0 31 8007 "{5}"
  1227. 0 266 "hits"
  1228. 0 266 "filesfound"
  1229. 0 26 "." "files"
  1230. 13
  1231. 8 4
  1232. 6 4
  1233. 5 1
  1234. 18 1
  1235. 11 00001789
  1236. 5 0
  1237. 15
  1238. 9
  1239. 0 789 ""
  1240. 0 27 8000
  1241. 13
  1242. 8 8
  1243. 6 8
  1244. 7 ""
  1245. 18 1
  1246. 11 00002041
  1247. 5 1
  1248. 8 2
  1249. 5 9
  1250. 6 2
  1251. 18 2
  1252. 12 00001934
  1253. 10 00002041
  1254. 5 1
  1255. 6 2
  1256. 3 0
  1257. 8 2
  1258. 10 00001859
  1259. 0 20 "{8}" "{2}" " "
  1260. 13
  1261. 8 9
  1262. 6 9
  1263. 7 ""
  1264. 18 0
  1265. 11 00002008
  1266. 10 00002041
  1267. 2 102 1 "{9}" 1 ""
  1268. 10 00001901
  1269. 6 0
  1270. 15
  1271. 9
  1272. 14 ckfile
  1273. 0 18 "{0}"
  1274. 13
  1275. 0 808 1 [X] "KEYWORD.SMM"
  1276. 13
  1277. 5 0
  1278. 18 3
  1279. 11 00000094
  1280. 5 1
  1281. 15
  1282. 9
  1283. 5 0
  1284. 8 5
  1285. 0 789 "Se est<\a> buscando en el archivo:  {0}"
  1286. 0 259 "{0}" "r"
  1287. 13
  1288. 8 6
  1289. 6 6
  1290. 5 1
  1291. 18 5
  1292. 11 00000255
  1293. 0 3 "No se puede leer el archivo"
  1294. 5 1
  1295. 15
  1296. 9
  1297. 20 00001700
  1298. 19 00001700
  1299. 7 ""
  1300. 8 7
  1301. 0 15 "[[" 1 1
  1302. 13
  1303. 8 8
  1304. 6 7
  1305. 7 "{8}desc]"
  1306. 18 1
  1307. 11 00000444
  1308. 0 257 "{6}"
  1309. 13
  1310. 8 7
  1311. 6 7
  1312. 5 -1
  1313. 18 0
  1314. 11 00000431
  1315. 0 260 "{6}"
  1316. 5 1
  1317. 15
  1318. 9
  1319. 10 00000316
  1320. 0 789 "Se est<\a> revisando el texto del archivo:  {0}"
  1321. 0 257 "{6}"
  1322. 13
  1323. 8 7
  1324. 5 10
  1325. 22 1
  1326. 0 805 &4 [X]
  1327. 13
  1328. 7 ""
  1329. 18 1
  1330. 11 00000765
  1331. 0 17 "{7}"
  1332. 13
  1333. 0 17 "{4}"
  1334. 13
  1335. 0 808 1 [X] [X]
  1336. 13
  1337. 5 0
  1338. 18 3
  1339. 11 00000765
  1340. 0 265 "hits"
  1341. 13
  1342. 5 1
  1343. 3 0
  1344. 0 264 "hits" [X]
  1345. 0 801
  1346. 16 strfile "{0}"
  1347. 13
  1348. 0 25 [X]
  1349. 0 260 "{6}"
  1350. 5 1
  1351. 15
  1352. 9
  1353. 0 257 "{6}"
  1354. 13
  1355. 8 7
  1356. 5 6
  1357. 8 9
  1358. 5 9
  1359. 6 9
  1360. 18 2
  1361. 12 00000872
  1362. 10 00001140
  1363. 5 1
  1364. 6 9
  1365. 3 0
  1366. 8 9
  1367. 10 00000797
  1368. 6 9
  1369. 22 1
  1370. 8 4
  1371. 6 4
  1372. 7 ""
  1373. 18 1
  1374. 11 00001105
  1375. 0 17 "{7}"
  1376. 13
  1377. 0 17 "{4}"
  1378. 13
  1379. 0 808 1 [X] [X]
  1380. 13
  1381. 5 0
  1382. 18 3
  1383. 11 00001105
  1384. 0 265 "hits"
  1385. 13
  1386. 5 1
  1387. 3 0
  1388. 0 264 "hits" [X]
  1389. 0 801
  1390. 16 strfile "{0}"
  1391. 13
  1392. 0 25 [X]
  1393. 0 260 "{6}"
  1394. 5 1
  1395. 15
  1396. 9
  1397. 0 257 "{6}"
  1398. 13
  1399. 8 7
  1400. 10 00000839
  1401. 5 1
  1402. 8 9
  1403. 5 8
  1404. 6 9
  1405. 18 2
  1406. 12 00001225
  1407. 10 00001315
  1408. 5 1
  1409. 6 9
  1410. 3 0
  1411. 8 9
  1412. 10 00001150
  1413. 0 257 "{6}"
  1414. 13
  1415. 8 7
  1416. 6 7
  1417. 5 -1
  1418. 18 0
  1419. 11 00001302
  1420. 0 260 "{6}"
  1421. 5 1
  1422. 15
  1423. 9
  1424. 10 00001192
  1425. 0 257 "{6}"
  1426. 13
  1427. 8 7
  1428. 5 1
  1429. 8 9
  1430. 5 5
  1431. 6 9
  1432. 18 2
  1433. 12 00001422
  1434. 10 00001690
  1435. 5 1
  1436. 6 9
  1437. 3 0
  1438. 8 9
  1439. 10 00001347
  1440. 6 9
  1441. 22 1
  1442. 8 4
  1443. 6 4
  1444. 7 ""
  1445. 18 1
  1446. 11 00001655
  1447. 0 17 "{7}"
  1448. 13
  1449. 0 17 "{4}"
  1450. 13
  1451. 0 808 1 [X] [X]
  1452. 13
  1453. 5 0
  1454. 18 3
  1455. 11 00001655
  1456. 0 265 "hits"
  1457. 13
  1458. 5 1
  1459. 3 0
  1460. 0 264 "hits" [X]
  1461. 0 801
  1462. 16 strfile "{0}"
  1463. 13
  1464. 0 25 [X]
  1465. 0 260 "{6}"
  1466. 5 1
  1467. 15
  1468. 9
  1469. 0 257 "{6}"
  1470. 13
  1471. 8 7
  1472. 10 00001389
  1473. 5 1
  1474. 8 5
  1475. 0 260 "{6}"
  1476. 6 5
  1477. 15
  1478. 9
  1479. 6 2
  1480. 15
  1481. 9
  1482. DIALOG keywords
  1483. -2134376448 21 79 22 206 156 "" "" "B·squeda de palabra clave" 
  1484. FONT 8 "Helv" 
  1485. 6 19 56 8 1001 1342308352 "static" "&Archivos:" 0 
  1486. 64 17 82 12 8006 1350631552 "edit" "" 0 
  1487. 6 32 42 8 1000 1342177280 "static" "&Descripci≤n:" 0 
  1488. 6 42 194 22 8777 1350631428 "edit" "" 0 
  1489. 6 66 96 8 1002 1342308352 "static" "&Palabras clave:" 0 
  1490. 6 76 96 12 8001 1350631552 "edit" "" 0 
  1491. 6 90 96 12 8002 1350631552 "edit" "" 0 
  1492. 104 76 96 12 8003 1350631552 "edit" "" 0 
  1493. 104 90 96 12 8004 1350631552 "edit" "" 0 
  1494. 6 104 96 8 8101 1342308352 "static" "" 0 
  1495. 6 114 96 12 8011 1350631552 "edit" "" 0 
  1496. 6 128 96 8 8102 1342177280 "static" "" 0 
  1497. 6 138 96 12 8012 1350631552 "edit" "" 0 
  1498. 104 104 96 8 8103 1342177280 "static" "" 0 
  1499. 104 114 96 12 8013 1350631552 "edit" "" 0 
  1500. 104 128 96 8 8104 1342177280 "static" "" 0 
  1501. 104 138 96 12 8014 1350631552 "edit" "" 0 
  1502. 160 4 40 14 1 1342373889 "button" "Aceptar" 0 
  1503. 160 20 40 14 2 1342373888 "button" "Cancelar" 0 
  1504. 6 7 56 8 1003 1342308352 "static" "&Directorio:" 0 
  1505. 64 4 82 12 8000 1350631552 "edit" "" 0 
  1506. DIALOG files
  1507. -2134376448 11 105 38 160 88 "" "" "Archivos hallados" 
  1508. FONT 8 "Helv" 
  1509. 6 4 84 8 1000 1342308352 "static" "&Archivos equivalentes:" 0 
  1510. 6 14 64 68 9000 1352728587 "listbox" "" 0 
  1511. 114 4 40 14 1 1342373889 "button" "Abrir" 0 
  1512. 114 20 40 14 2 1342373888 "button" "Cancelar" 0 
  1513. 73 71 60 0 8000 1342177280 "static" "" 0 
  1514. 74 72 54 8 1001 1342177280 "static" "N║ revisados:" 0 
  1515. 130 72 16 8 8110 1342177280 "static" "" 0 
  1516. 130 62 16 8 8111 1342177280 "static" "" 0 
  1517. 74 62 54 8 1004 1342177280 "static" "N║ hallados:" 0 
  1518. 74 32 37 8 1002 1342177280 "static" "Directorio:" 0 
  1519. 74 42 80 8 8007 1342177280 "static" "" 0 
  1520. 14 Strfile
  1521. 5 1
  1522. 8 2
  1523. 5 1
  1524. 11 00000146
  1525. 0 13 "{2}" "{0}" "\"
  1526. 13
  1527. 8 3
  1528. 6 3
  1529. 5 1
  1530. 18 5
  1531. 11 00000113
  1532. 10 00000146
  1533. 6 3
  1534. 5 1
  1535. 3 0
  1536. 8 2
  1537. 10 00000022
  1538. 0 14 "{0}"
  1539. 13
  1540. 8 4
  1541. 0 15 "{0}" "{2}" "{4}"
  1542. 13
  1543. 8 0
  1544. 6 0
  1545. 15
  1546. 9
  1547. 6 1
  1548. 15
  1549. 9
  1550. 14 Strpath
  1551. 5 1
  1552. 8 2
  1553. 5 1
  1554. 11 00000146
  1555. 0 13 "{2}" "{0}" "\"
  1556. 13
  1557. 8 3
  1558. 6 3
  1559. 5 1
  1560. 18 5
  1561. 11 00000113
  1562. 10 00000146
  1563. 6 3
  1564. 5 1
  1565. 3 0
  1566. 8 2
  1567. 10 00000022
  1568. 6 2
  1569. 5 1
  1570. 3 1
  1571. 0 15 "{0}" 1 [X]
  1572. 13
  1573. 8 4
  1574. 6 4
  1575. 15
  1576. 9
  1577. 6 1
  1578. 15
  1579. 9
  1580. 00013032
  1581.